home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 08 System Utilities / DISKDR.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.6 KB  |  103 lines
  1. 10 POKE53280,0:POKE53281,0:REM ==          == CIS 1-86 MOD PA RAY 2-86 ==
  2. 12 PRINT"[147][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":PRINT"[158]DISK MENU UTILITY 2"
  3. 14 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":PRINT"[155]  PRESS  RETURN"
  4. 16 GETG$:IFG$<>CHR$(13)THEN16
  5. 18 DIMCA$(2,144),MN$(13):FORI=1TO12:READMN$(I):NEXT
  6. 20 DATA"[154] NEXT PAGE ","[154] CHANGE DISK ","[154] ERROR STATUS "," [154]LOAD,8:RUN "
  7. 22 DATA"[154] LOAD,8,1 ","[150] RENAME FILE ","[150] DELETE FILE ","[150] VALIDATE DISK "
  8. 24 DATA"[150] FORMAT/CLEAR DISK ","[150] QUIT "," NEXT PAGE "," CANCEL COMMAND "
  9. 26 GOSUB46:GOTO30
  10. 28 POKE214,X:PRINT:POKE211,Y:RETURN
  11. 30 Y=4:FORI=1TO10:X=I+12:GOSUB28:PRINTMN$(I):NEXT:X=13+(1ANDDA<12)
  12. 32 GOSUB28:PRINT"";MN$(X-12):FORI=1TO10:GETX$:NEXT
  13. 34 GETX$:IFX$=""THEN34
  14. 36 GOSUB28:PRINT"[146]"MN$(X-12):IFX$=""THENX=X+1:IFX>22THENX=13+(1ANDDA<12)
  15. 38 IFX$="[145]"THENX=X-(1ANDX>13):IF(DA<12)ANDX=13THENX=14
  16. 40 IFX$=CHR$(13)THEN44
  17. 42 GOTO32
  18. 44 ON(X-12)GOSUB144,46,120,110,116,98,104,90,74,86:GOTO30
  19. 46 PRINT"[147]READING DIRECTORY"
  20. 48 DA=0:OPEN1,8,0,"$":POKE781,1:SYS65478:GETA$,B$
  21. 50 GETA$,B$,A$,B$:C=0:IFA$<>""THENC=ASC(A$)
  22. 52 IFB$<>""THENC=C+ASC(B$)*256
  23. 54 DA=DA+1:CA$(1,DA)=MID$(STR$(C),2)
  24. 56 GETB$:IFST<>.THEN68
  25. 58 IFB$<>CHR$(34)THEN56
  26. 60 GETB$:IFB$=CHR$(32)THEN60
  27. 62 C$=C$+B$:GETB$:IFB$<>""THEN62
  28. 64 CA$(2,DA)=C$:C$="":IFDA=1THENPRINT"[147]READING "CHR$(34)+CA$(2,DA)
  29. 66 IFST=.THEN50
  30. 68 SYS65484:CA$(2,DA)="[153] BLOCKS FREE "+STR$(DA-2)+" FILES [146]":CLOSE1:T=1
  31. 70 GOSUB120:IFA<>.THENDA=0:RETURN
  32. 72 GOSUB144:RETURN
  33. 74 WM$="[150]PRESENT CONTENTS OF DISK WILL BE ERASED":GOSUB130
  34. 76 PRINT"[147][150]INSERT DISK TO BE FORMATED":N$="":INPUT"DISK NAME";N$:IFN$=""THENRETURN
  35. 78 EX$="":PRINT"TO FORMAT DISK ENTER DISK NUMBER"
  36. 80 PRINT"OR PRESS RETURN TO CLEAR DIRECTORY";:INPUTEX$
  37. 82 MA$="N:"+N$:IFEX$<>""THENMA$=MA$+","+EX$
  38. 84 OPEN15,8,15,MA$:CLOSE15:MA$="":GOSUB120:GOSUB48:RETURN
  39. 86 X$="":INPUT"[147]ARE YOU SURE (Y/N) ";X$:IFX$="Y"THENPRINT"[147]":END
  40. 88 T=OT-1:GOSUB142:RETURN
  41. 90 IFDA=.THENRETURN
  42. 92 WM$="RANDOM FILES WILL BE ERASED":GOSUB130:PRINT"[147]DOING MY BEST..."
  43. 94 CP=VAL(CA$(1,DA)):OPEN15,8,15:PRINT#15,"V":CLOSE15
  44. 96 GOSUB120:GOSUB48:CP=VAL(CA$(1,DA))-CP:PRINT""CP"BLOCKS RECLAIMED":RETURN
  45. 98 WC$="[150]":WM$="[150]RENAME":GOSUB160:IFN$=""THENRETURN
  46. 100 NW$="":PRINT"[147]NEW NAME FOR [150]"N$"":INPUTNW$:IFNW$=""THENT=OT-1:GOSUB144:RETURN
  47. 102 MA$="R:"+NW$+"="+N$:OPEN15,8,15,MA$:CLOSE15:MA$="":GOSUB120:GOSUB48:RETURN
  48. 104 WC$="[150]":WM$="[150]DELETE":GOSUB160:IFN$=""THENRETURN
  49. 106 WM$=""+N$+" [150]WILL BE ERASED":GOSUB130
  50. 108 MA$="S:"+N$:OPEN15,8,15,MA$:CLOSE15:MA$="":GOSUB120:GOSUB48:RETURN
  51. 110 WC$="[154]":WM$="[154]LOAD,8:RUN":GOSUB160:IFN$=""THENRETURN
  52. 112 POKE53272,21:PRINT"[147]LOAD"CHR$(34)N$CHR$(34)",8
  53. 114 [153]"":[151]198,4:[151]631,13:[151]632,82:[151]633,213:[151]634,13:[128]
  54. 116 WC$[178]"CONT":WM$[178]"CONTLOAD,8,1":[141]160:[139]N$[178]""[167][142]
  55. 118 [151]53272,21:[153]"LOADLOAD"[199](34)N$[199](34)",8,1":[153]"":[151]198,4:[151]631,13:[128]:[142]
  56. 120 [159]1,8,15:[132]1,A,B$,C,D:[160]1:[153]"#";A;B$;" TRK";C"SCT";D:[139]A[178]0[167][142]
  57. 122 [153]"    PRESS RETURN TO CONTINUE
  58. 124 GETX$:IFX$=""THEN124
  59. 126 IFX$=CHR$(13)THENRETURN
  60. 128 GOTO124
  61. 130 PRINT"[147]":POKE214,5:PRINT:X=LEN(WM$):X=(40-X)/2:PRINTTAB(X);WM$
  62. 132 PRINT"";TAB(10);"PRESS [150]RETURN TO DO":PRINT;TAB(10);"PRESS [150]F1 TO CANCEL
  63. 134 [161]X$:[139]X$[178]""[167]134
  64. 136 [139]X$[178][199](13)[167][153]"LOAD":[142]
  65. 138 [139]X$[178]"INPUT"[167]T[178]OT:[141]144:[137]30
  66. 140 [137]134
  67. 142 [143]
  68. 144 [139]DA[178].[167][142]
  69. 146 G[178]0:OT[178]T[170]1:[153]" LOADPRINT "[199](34)[170]CA$(2,1)[170]"WAIT
  70. 148 T=T+1:G=G+1:PRINT""+CA$(1,T);:IFT<>DATHENPRINTTAB(4);CHR$(34)+CA$(2,T)
  71. 150 IFT=DATHENPRINTTAB(4);CA$(2,T)
  72. 152 TL=T:IFG=10ANDT=DATHENT=1:RETURN
  73. 154 IFG=10THEN:RETURN
  74. 156 IFT=DATHENT=1:RETURN
  75. 158 GOTO148
  76. 160 T=1:N$="":IFDA<3THENRETURN
  77. 162 T=OT-1:GOSUB144:GOTO188
  78. 164 IFOT+X-2=DATHEN188
  79. 166 GOSUB186:PRINT""+WC$+CHR$(34)+CA$(2,OT+X-2):FORI=1TO10:GETX$:NEXT
  80. 168 GETX$:IFX$=""THEN168
  81. 170 GOSUB186:PRINT"[146]"CHR$(34)+CA$(2,OT+X-2):IFX$=""THENX=X+1:IFX>11THEN188
  82. 172 IFX$="[145]"THENX=X-1:IFX<2THEN188
  83. 174 IFX-OT=TLTHEN188
  84. 176 IFX$=CHR$(13)THEN180
  85. 178 GOTO164
  86. 180 FORI=1TOLEN(CA$(2,OT+X-2)):IFMID$(CA$(2,OT+X-2),I,1)=CHR$(34)THEN184
  87. 182 NEXT
  88. 184 N$=LEFT$(CA$(2,OT+X-2),I-1):RETURN
  89. 186 POKE214,X:PRINT:POKE211,Y:RETURN
  90. 188 Y=4:FORX=13TO14:GOSUB186:PRINTWC$+MN$(X-2):NEXT
  91. 190 X=16:Y=6:GOSUB186:PRINT"CHOOSE FILE TO "WC$+WM$+"":X=13:Y=4
  92. 192 GOSUB186:PRINTWC$+""+MN$(X-2):FORI=1TO15:GETX$:NEXT
  93. 194 GETX$:IFX$=""THEN194
  94. 196 GOSUB186:PRINTWC$+"[146]"+MN$(X-2):IFX$=""THENX=X+1:IFX>14THENX=2:GOSUB208:GOTO164
  95. 198 IFX$="[145]"THENX=X-1:IFX<13THENX=TL-OT+1+(1ANDTL<>DA):GOSUB208:GOTO164
  96. 200 IFX$=CHR$(13)THENGOTO204
  97. 202 GOTO192
  98. 204 IFX=13THENGOSUB144:GOTO188
  99. 206 IFX=14THENT=OT-1:GOSUB144:RETURN
  100. 208 FORI=13TO14:POKE214,I:PRINT:POKE211,Y:PRINT"               ":NEXT:RETURN
  101. 210 END
  102. 212 :
  103.